home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Labs / StateUFinal / classList.asp < prev    next >
Text File  |  1997-04-24  |  17KB  |  461 lines
  1. <%@ LANGUAGE="VBScript" %>
  2.  
  3. <%
  4. '-------------------------------------------------------------------------------
  5. ' Microsoft Visual InterDev - Data Form Wizard
  6. ' 
  7. ' List Page
  8. '
  9. ' (c) 1997 Microsoft Corporation.  All Rights Reserved.
  10. '
  11. ' This file is an Active Server Page that contains the list view of a Data Form. 
  12. ' It requires Microsoft Internet Information Server 3.0 and can be displayed
  13. ' using any browser that supports tables. You can edit this file to further 
  14. ' customize the list view.
  15. '
  16. '-------------------------------------------------------------------------------
  17.  
  18. Dim strPagingMove
  19. Dim strDFName
  20. strDFName = "rsclassClasses"
  21. %>
  22.  
  23. <SCRIPT RUNAT=Server LANGUAGE="VBScript">
  24.  
  25. '---- DataTypeEnum Values ----
  26. Const adUnsignedTinyInt = 17
  27. Const adBoolean = 11
  28. Const adLongVarChar = 201
  29. Const adLongVarWChar = 203
  30. Const adBinary = 128
  31. Const adVarBinary = 204
  32. Const adLongVarBinary = 205
  33.  
  34. '-------------------------------------------------------------------------------
  35. ' Purpose:  Substitutes Empty for Null and trims leading/trailing spaces
  36. ' Inputs:   varTemp    - the target value
  37. ' Returns:    The processed value
  38. '-------------------------------------------------------------------------------
  39.  
  40. Function ConvertNull(varTemp)
  41.     If IsNull(varTemp) Then
  42.         ConvertNull = ""
  43.     Else
  44.         ConvertNull = Trim(varTemp)
  45.     End If
  46. End Function
  47.  
  48. '-------------------------------------------------------------------------------
  49. ' Purpose:  Embeds bracketing quotes around the string
  50. ' Inputs:   varTemp    - the target value
  51. ' Returns:    The processed value
  52. '-------------------------------------------------------------------------------
  53.  
  54. Function QuotedString(varTemp)
  55.     If IsNull(varTemp) Then
  56.         QuotedString = Chr(34) & Chr(34)
  57.     Else
  58.         QuotedString = Chr(34) & CStr(varTemp) & Chr(34)
  59.     End If
  60. End Function
  61.  
  62. '-------------------------------------------------------------------------------
  63. ' Purpose:  Tests string to see if it is a URL by looking for protocol
  64. ' Inputs:   varTemp    - the target value
  65. ' Returns:    True - if is URL, False if not
  66. '-------------------------------------------------------------------------------
  67.  
  68. Function IsURL(varTemp)
  69.     IsURL = True
  70.     If UCase(Left(Trim(varTemp), 6)) = "HTTP:/" Then Exit Function
  71.     If UCase(Left(Trim(varTemp), 6)) = "FILE:/" Then Exit Function
  72.     If UCase(Left(Trim(varTemp), 8)) = "MAILTO:/" Then Exit Function
  73.     If UCase(Left(Trim(varTemp), 5)) = "FTP:/" Then Exit Function
  74.     If UCase(Left(Trim(varTemp), 8)) = "GOPHER:/" Then Exit Function
  75.     If UCase(Left(Trim(varTemp), 6)) = "NEWS:/" Then Exit Function
  76.     If UCase(Left(Trim(varTemp), 7)) = "HTTPS:/" Then Exit Function
  77.     If UCase(Left(Trim(varTemp), 8)) = "TELNET:/" Then Exit Function
  78.     If UCase(Left(Trim(varTemp), 6)) = "NNTP:/" Then Exit Function
  79.     IsURL = False
  80. End Function
  81.  
  82. '-------------------------------------------------------------------------------
  83. ' Purpose:  Handles the display of a field from a recordset depending
  84. '            on its data type, attributes, and the current mode.
  85. ' Assumes:     That the recordset containing the field is open
  86. ' Inputs:   strFieldName     - the name of the field in the recordset
  87. '            avarLookup        - array of lookup values
  88. '-------------------------------------------------------------------------------
  89.  
  90. Function ShowField(strFieldName, avarLookup)
  91.     Dim intRow
  92.     Dim strPartial
  93.     Dim strBool
  94.     Dim nPos
  95.     strFieldValue = ""
  96.     nPos=Instr(strFieldName,".")
  97.     Do While nPos > 0 
  98.         strFieldName= Mid (strFieldName, nPos+1)
  99.         nPos=Instr(strFieldName,".")
  100.     Loop 
  101.     If Not IsNull(avarLookup) Then
  102.         Response.Write "<TD BGCOLOR=White NOWRAP><FONT SIZE=-1>" 
  103.         For intRow = 0 to UBound(avarLookup, 2)
  104.             If ConvertNull(avarLookup(0, intRow)) = ConvertNull(rsclassClasses(strFieldName)) Then
  105.                 Response.Write Server.HTMLEncode(ConvertNull(avarLookup(1, intRow)))
  106.                 Exit For
  107.             End If
  108.         Next
  109.         Response.Write "</FONT></TD>"
  110.         Exit Function
  111.     End If
  112.     
  113.     Select Case rsclassClasses(strFieldName).Type
  114.         Case adBoolean, adUnsignedTinyInt                'Boolean
  115.             strBool = ""
  116.             If rsclassClasses(strFieldName) <> 0 Then
  117.                 strBool = "True"
  118.             Else
  119.                 strBool = "False"
  120.             End If
  121.             Response.Write "<TD BGCOLOR=White ><FONT SIZE=-1>" & strBool & "</FONT></TD>"
  122.             
  123.         Case adBinary, adVarBinary, adLongVarBinary        'Binary
  124.             Response.Write "<TD BGCOLOR=White ><FONT SIZE=-1>[Binary]</FONT></TD>"
  125.             
  126.         Case adLongVarChar, adLongVarWChar                'Memo
  127.             Response.Write "<TD BGCOLOR=White NOWRAP><FONT SIZE=-1>"
  128.             strPartial = Left(rsclassClasses(strFieldName), 50)            
  129.             If ConvertNull(strPartial) = "" Then
  130.                 Response.Write " "
  131.             Else
  132.                 Response.Write Server.HTMLEncode(strPartial)
  133.             End If
  134.             If rsclassClasses(strFieldName).ActualSize > 50 Then Response.Write "..."
  135.             Response.Write "</FONT></TD>"
  136.             
  137.         Case Else
  138.             Response.Write "<TD BGCOLOR=White ALIGN=Left NOWRAP><FONT SIZE=-1>"
  139.             If ConvertNull(rsclassClasses(strFieldName)) = "" Then
  140.                 Response.Write " "
  141.             Else
  142.                 ' Check for special field types
  143.                 Select Case UCase(Left(rsclassClasses(strFieldName).Name, 4))
  144.                     Case "URL_"
  145.                         Response.Write "<A HREF=" & QuotedString(rsclassClasses(strFieldName)) & ">"
  146.                         Response.Write Server.HTMLEncode(ConvertNull(rsclassClasses(strFieldName)))
  147.                         Response.Write "</A>"
  148.                     Case Else
  149.                         If IsURL(rsclassClasses(strFieldName)) Then
  150.                             Response.Write "<A HREF=" & QuotedString(rsclassClasses(strFieldName)) & ">"
  151.                             Response.Write Server.HTMLEncode(ConvertNull(rsclassClasses(strFieldName)))
  152.                             Response.Write "</A>"
  153.                         Else
  154.                             Response.Write Server.HTMLEncode(ConvertNull(rsclassClasses(strFieldName)))
  155.                         End If
  156.                 End Select
  157.             End If
  158.             Response.Write "</FONT></TD>"
  159.     End Select
  160. End Function
  161.  
  162. </SCRIPT>
  163.  
  164. <HTML>
  165. <HEAD>
  166.     <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev">
  167.     <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
  168.     <META NAME="Keywords" CONTENT="Microsoft Data Form, Class List List">
  169.     <TITLE>Class List List</TITLE>
  170. </HEAD>
  171.  
  172. <!--------------------------- Formatting Section ------------------------------>
  173.  
  174. <BASEFONT FACE="Arial, Helvetica, sans-serif">
  175. <LINK REL=STYLESHEET HREF="./Stylesheets/Grid/Style2.css">
  176. <BODY BACKGROUND="./Images/Grid/Background/Back2.jpg" BGCOLOR=White>
  177.  
  178. <!---------------------------- Lookups Section ------------------------------->
  179.  
  180. <!---------------------------- Heading Section ------------------------------->
  181.  
  182. <% Response.Write "<FORM ACTION=classForm.asp METHOD=""POST"">" %>
  183. <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  184.     <TR>
  185.         <TH NOWRAP BGCOLOR=Silver ALIGN=Left BACKGROUND="./Images/Grid/Navigation/Nav1.jpg" >
  186.             <FONT SIZE=6> Class List</FONT>
  187.         </TH>
  188.         <TD BGCOLOR=Silver VALIGN=Middle ALIGN=Right WIDTH=100% BACKGROUND="./Images/Grid/Navigation/Nav1.jpg">
  189.             <INPUT TYPE="Hidden" NAME="FormMode" VALUE="Edit">
  190.              <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="Form View"> 
  191.         </TD>
  192.     </TR>
  193.     <TR>
  194.         <TD BGCOLOR=#FFFFCC COLSPAN=3>
  195.             <FONT SIZE=-1>  
  196.             <% 
  197.             If IsEmpty(Session("rsclassClasses_Filter")) Or Session("rsclassClasses_Filter")="" Then
  198.                 Response.Write "Current Filter: None<BR>"
  199.             Else
  200.                 Response.Write "Current Filter: " & Session("rsclassClasses_FilterDisplay") & "<BR>"
  201.             End If 
  202.             %>
  203.             </FONT>
  204.         </TD>
  205.     </TR></TABLE>
  206. </FORM>
  207.  
  208. <!----------------------------- List Section --------------------------------->
  209.  
  210. <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100% >
  211. <TR>
  212. <TD WIDTH=20> </TD>
  213. <TD>
  214. <TABLE CELLSPACING=1 CELLPADDING=1 BORDER=0 WIDTH=100% >
  215.     <TR BGCOLOR=SILVER VALIGN=TOP>
  216.         <TD ALIGN=Center><FONT SIZE=-1> # </FONT></TD>
  217.         <TD ALIGN=Left><FONT SIZE=-1><B>ClassID</B></FONT></TD>
  218.         <TD ALIGN=Left><FONT SIZE=-1><B>Title</B></FONT></TD>
  219.         <TD ALIGN=Left><FONT SIZE=-1><B>MajorID</B></FONT></TD>
  220.         <TD ALIGN=Left><FONT SIZE=-1><B>Seats</B></FONT></TD>
  221.         <TD ALIGN=Left><FONT SIZE=-1><B>StartDate</B></FONT></TD>
  222.     </TR>
  223.  
  224. <!--METADATA TYPE="DesignerControl" startspan
  225.     <OBJECT ID="rsclassClasses" WIDTH=151 HEIGHT=24
  226.         CLASSID="CLSID:F602E721-A281-11CF-A5B7-0080C73AAC7E">
  227.         <PARAM NAME="BarAlignment" VALUE="0">
  228.            <PARAM NAME="PageSize" VALUE="10">
  229.         <PARAM Name="RangeType" Value="2">
  230.         <PARAM Name="DataConnection" Value="StateU">
  231.         <PARAM Name="CommandType" Value="0">
  232.         <PARAM Name="CommandText" Value="SELECT "ClassID", "Title", "MajorID", "Seats", "StartDate" FROM dbo."Classes"">
  233.         <PARAM Name="CursorType" Value="1">
  234.         <PARAM Name="LockType" Value="3">
  235.         <PARAM Name="CacheRecordset" Value="1">
  236.     </OBJECT>
  237. -->
  238.  
  239. <%
  240. fHideNavBar = False
  241. fHideNumber = False
  242. fHideRequery = False
  243. fHideRule = False
  244. stQueryString = ""
  245. fEmptyRecordset = False
  246. fFirstPass = True
  247. fNeedRecordset = False
  248. fNoRecordset = False
  249. tBarAlignment = "Left"
  250. tHeaderName = "rsclassClasses"
  251. tPageSize = 10
  252. tPagingMove = ""
  253. tRangeType = "Table"
  254. tRecordsProcessed = 0
  255. tPrevAbsolutePage = 0
  256. intCurPos = 0
  257. intNewPos = 0
  258. fSupportsBookmarks = True
  259. fMoveAbsolute = False
  260.  
  261. If Not IsEmpty(Request("rsclassClasses_PagingMove")) Then
  262.     tPagingMove = Trim(Request("rsclassClasses_PagingMove"))
  263. End If
  264.  
  265. If IsEmpty(Session("rsclassClasses_Recordset")) Then
  266.     fNeedRecordset = True
  267. Else
  268.     If Session("rsclassClasses_Recordset") Is Nothing Then
  269.         fNeedRecordset = True
  270.     Else
  271.         Set rsclassClasses = Session("rsclassClasses_Recordset")
  272.     End If
  273. End If
  274.  
  275. If fNeedRecordset Then
  276.     Set StateU = Server.CreateObject("ADODB.Connection")
  277.     StateU.ConnectionTimeout = Session("StateU_ConnectionTimeout")
  278.     StateU.CommandTimeout = Session("StateU_CommandTimeout")
  279.     StateU.Open Session("StateU_ConnectionString"), Session("StateU_RuntimeUserName"), Session("StateU_RuntimePassword")
  280.     Set cmdTemp = Server.CreateObject("ADODB.Command")
  281.     Set rsclassClasses = Server.CreateObject("ADODB.Recordset")
  282.     cmdTemp.CommandText = "SELECT ""ClassID"", ""Title"", ""MajorID"", ""Seats"", ""StartDate"" FROM dbo.""Classes"""
  283.     cmdTemp.CommandType = 1
  284.     Set cmdTemp.ActiveConnection = StateU
  285.     rsclassClasses.Open cmdTemp, , 1, 3
  286. End If
  287. On Error Resume Next
  288. If rsclassClasses.BOF And rsclassClasses.EOF Then fEmptyRecordset = True
  289. On Error Goto 0
  290. If Err Then fEmptyRecordset = True
  291. If fNeedRecordset Then
  292.     Set Session("rsclassClasses_Recordset") = rsclassClasses
  293. End If
  294. rsclassClasses.PageSize = tPageSize
  295. fSupportsBookmarks = rsclassClasses.Supports(8192)
  296.  
  297. If Not IsEmpty(Session("rsclassClasses_Filter")) And Not fEmptyRecordset Then
  298.     rsclassClasses.Filter = Session("rsclassClasses_Filter")
  299.     If rsclassClasses.BOF And rsclassClasses.EOF Then fEmptyRecordset = True
  300. End If
  301.  
  302. If IsEmpty(Session("rsclassClasses_PageSize")) Then Session("rsclassClasses_PageSize") = tPageSize
  303. If IsEmpty(Session("rsclassClasses_AbsolutePage")) Then Session("rsclassClasses_AbsolutePage") = 1
  304.  
  305. If Session("rsclassClasses_PageSize") <> tPageSize Then
  306.     tCurRec = ((Session("rsclassClasses_AbsolutePage") - 1) * Session("rsclassClasses_PageSize")) + 1
  307.     tNewPage = Int(tCurRec / tPageSize)
  308.     If tCurRec Mod tPageSize <> 0 Then
  309.         tNewPage = tNewPage + 1
  310.     End If
  311.     If tNewPage = 0 Then tNewPage = 1
  312.     Session("rsclassClasses_PageSize") = tPageSize
  313.     Session("rsclassClasses_AbsolutePage") = tNewPage
  314. End If
  315.  
  316. If fEmptyRecordset Then
  317.     fHideNavBar = True
  318.     fHideRule = True
  319. Else
  320.     tPrevAbsolutePage = Session("rsclassClasses_AbsolutePage")
  321.     Select Case tPagingMove
  322.         Case ""
  323.             fMoveAbsolute = True
  324.         Case "Requery"
  325.             rsclassClasses.Requery
  326.             fMoveAbsolute = True
  327.         Case "<<"
  328.             Session("rsclassClasses_AbsolutePage") = 1
  329.         Case "<"
  330.             If Session("rsclassClasses_AbsolutePage") > 1 Then
  331.                 Session("rsclassClasses_AbsolutePage") = Session("rsclassClasses_AbsolutePage") - 1
  332.             End If
  333.         Case ">"
  334.             If Not rsclassClasses.EOF Then
  335.                 Session("rsclassClasses_AbsolutePage") = Session("rsclassClasses_AbsolutePage") + 1
  336.             End If
  337.         Case ">>"
  338.             If fSupportsBookmarks Then
  339.                 Session("rsclassClasses_AbsolutePage") = rsclassClasses.PageCount
  340.             End If
  341.     End Select
  342.     Do
  343.         If fSupportsBookmarks Then
  344.             rsclassClasses.AbsolutePage = Session("rsclassClasses_AbsolutePage")
  345.         Else
  346.             If fNeedRecordset Or fMoveAbsolute Or rsclassClasses.EOF Then
  347.                 rsclassClasses.MoveFirst
  348.                 rsclassClasses.Move (Session("rsclassClasses_AbsolutePage") - 1) * tPageSize
  349.             Else
  350.                 intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize
  351.                 intNewPos = ((Session("rsclassClasses_AbsolutePage") - 1) * tPageSize) + 1
  352.                 rsclassClasses.Move intNewPos - intCurPos
  353.             End If
  354.             If rsclassClasses.BOF Then rsclassClasses.MoveNext
  355.         End If
  356.         If Not rsclassClasses.EOF Then Exit Do
  357.         Session("rsclassClasses_AbsolutePage") = Session("rsclassClasses_AbsolutePage") - 1
  358.     Loop
  359. End If
  360.  
  361. Do
  362.     If fEmptyRecordset Then Exit Do
  363.     If tRecordsProcessed = tPageSize Then Exit Do
  364.     If Not fFirstPass Then
  365.         rsclassClasses.MoveNext
  366.     Else
  367.         fFirstPass = False
  368.     End If
  369.     If rsclassClasses.EOF Then Exit Do
  370.     tRecordsProcessed = tRecordsProcessed + 1
  371. %>
  372. <!--METADATA TYPE="DesignerControl" endspan-->
  373.  
  374.     <TR VALIGN=TOP>
  375.         <TD BGCOLOR=White><FONT SIZE=-1>
  376.         <%
  377.         If tPageSize > 0 Then
  378.             tCurRec = ((Session("rsclassClasses_AbsolutePage") - 1) * tPageSize) + tRecordsProcessed
  379.         Else
  380.             tRecordsProcessed = tRecordsProcessed + 1
  381.             tCurRec = tRecordsProcessed
  382.         End If
  383.         Response.Write "<A HREF=" & QuotedString("classAction.asp?Bookmark=" & tCurRec & "&DataAction=Find") & ">" & tCurRec & "</A>"
  384.         %>
  385.  
  386.         </FONT></TD>
  387.         <%
  388.         ShowField "ClassID", Null
  389.         ShowField "Title", Null
  390.         ShowField "MajorID", Null
  391.         ShowField "Seats", Null
  392.         ShowField "StartDate", Null
  393.         fHideRule = True
  394.         %>
  395.     </TR>
  396.  
  397. <!--METADATA TYPE="DesignerControl" startspan
  398.     <OBJECT ID="DataRangeFtr1" WIDTH=151 HEIGHT=24
  399.         CLASSID="CLSID:F602E722-A281-11CF-A5B7-0080C73AAC7E">
  400.     </OBJECT>
  401. -->
  402. <%
  403. Loop
  404. If tRangeType = "Table" Then Response.Write "</TABLE>"
  405. If tPageSize > 0 Then
  406.     If Not fHideRule Then Response.Write "<HR>"
  407.     If Not fHideNavBar Then
  408.         %>
  409.         <TABLE WIDTH=100% >
  410.         <TR>
  411.             <TD WIDTH=100% >
  412.                 <P ALIGN=<%= tBarAlignment %> >
  413.                 <FORM <%= "ACTION=""" & Request.ServerVariables("PATH_INFO") & stQueryString & """" %> METHOD="POST">
  414.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <<   ">
  415.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <    ">
  416.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="    >   ">
  417.                     <% If fSupportsBookmarks Then %>
  418.                         <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   >>   ">
  419.                     <% End If %>
  420.                     <% If Not fHideRequery Then %>
  421.                         <INPUT TYPE="Submit" NAME="<% =tHeaderName & "_PagingMove" %>" VALUE=" Requery ">
  422.                     <% End If %>
  423.                 </FORM>
  424.                 </P>
  425.             </TD>
  426.             <TD VALIGN=MIDDLE ALIGN=RIGHT>
  427.                 <FONT SIZE=2>
  428.                 <%
  429.                 If Not fHideNumber Then
  430.                     If tPageSize > 1 Then
  431.                         Response.Write "<NOBR>Page: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  432.                     Else
  433.                         Response.Write "<NOBR>Record: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  434.                     End If
  435.                 End If
  436.                 %>
  437.                 </FONT>
  438.             </TD>
  439.         </TR>
  440.         </TABLE>
  441.     <%
  442.     End If
  443. End If
  444. %>
  445. <!--METADATA TYPE="DesignerControl" endspan-->
  446.  
  447. <!---------------------------- Footer Section -------------------------------->
  448.  
  449. <% 
  450. ' TEMP: cache here until CacheRecordset property is implemented in
  451. '         data range
  452. If fNeedRecordset Then
  453.     Set Session("rsclassClasses_Recordset") = rsclassClasses
  454. End If 
  455. %>
  456.  
  457. </TD></TR></TABLE>
  458. </BODY>
  459. </HTML>
  460.  
  461.